<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
  <title><%=Application("moban-LTDName")%>-专业提供美国虚拟主机租用|美国服务器租用|不限内容主机|传奇诱惑主机|香港VPS|国内高防VPS云主机|免费试用主机|VPS云主机|域名注册|</title>
  <meta name="keywords" content="美国虚拟主机,美国服务器租用,<%=Application("moban-LTDName")%>,香港vps主机,国内高防VPS云主机,域名注册,传奇诱惑空间主机,香港空间,美国空间,服务器合租,主机合租,vps租用,免备案空间,合租服务器,合租主机,服务器租用,虚拟空间">
  <meta name="description" content="<%=Application("moban-LTDName")%>数万客户共同认证、高速稳定，虚拟主机行业百强。提供美国虚拟主机、香港VPS云主机、香港主机、美国服务器租用、免备案主机、虚拟主机、网站空间、国内高防云主机、域名注册、传奇诱惑主机、主机合租、合租主机、VPS、云主机、服务器租用等，空间免费试用，超值性价比，低投入，高回报，<%=Application("moban-LTDName")%>，您的放心之选！">
  <link rel="shortcut icon" href="/favicon.ico">
  <link rel="stylesheet" type="text/css" href="/cloudtpl/statics/css/idangerous.swiper.css">
  <link rel="stylesheet" type="text/css" href="/cloudtpl/statics/css/base.css">
  <script src="/cloudtpl/statics/js/jquery.min.js"></script>
  <script src="/cloudtpl/statics/js/nav.js"></script>
  <script src="/cloudtpl/statics/js/index-banner-js.js"></script>
  <script src="/cloudtpl/statics/js/index-floatright.js"></script>
  <script src="/cloudtpl/statics/js/zzidcsolu.js"></script>
  <script src="/cloudtpl/statics/js/win.js"></script>
  <script src="/cloudtpl/statics/js/idangerous.swiper.min.js"></script>
  <script src="/cloudtpl/statics/js/gainet.core.js"></script>




<body>
<!--#include virtual="/cloudtpl/inc/top.asp"-->

<link rel="stylesheet" type="text/css" href="/cloudtpl/statics/erkai/css/host.css" media="all" />
<link rel="stylesheet" type="text/css" href="/cloudtpl/statics/erkai/css/vps.css" media="all" />

<script type="text/javascript" src="js/jquery.js"></script>
<script type="text/javascript" src="js/jquery.banner.js"></script>
<style type="text/css"> 
*{margin:0;padding:0;list-style-type:none;}
a,img{border:0;}
body{font:12px/180% Arial, Helvetica, sans-serif, "新宋体";}

.banner{width:100%;overflow:hidden;height:470px;position:relative}
.banList{position:absolute;left:50%;margin-left:-960px;height:470px}
.banList li{height:470px;opacity:0;position:absolute;transform:scale(0);transition:transform 0.5s ease 0s, opacity 1.5s ease 0s;z-index:1;}
.banList li.active{opacity:1;transform:scale(1);z-index:2;}
.fomW{position:absolute;bottom:20px;left:50%;height:20px;z-index:9;width:1000px;margin-left:-500px}
.jsNav{text-align:center;}
.jsNav a{display:inline-block;background:#fff;width:15px;height:15px;border-radius:50%;margin:0 5px;}
.jsNav a.current{background:#fc8f0f;cursor:pointer}
</style>

<div class="banner">
	<ul class="banList">
		<li class="active"><a href="/cloudtpl/cdn/"><img src="images/img1.jpg"/></a></li>
		<li><a href="/cloudtpl/cdn/"><img src="images/img2.jpg"/></a></li>
		<li><a href="/cloudtpl/cdn/"><img src="images/img3.jpg"/></a></li>
	</ul>
	<div class="fomW">
		<div class="jsNav">
			<a href="javascript:;" class="trigger current"></a>
			<a href="javascript:;" class="trigger"></a>
			<a href="javascript:;" class="trigger"></a>
		</div>
	</div>
</div>
	
<script type="text/javascript"> 
$(function(){
	$(".banner").swBanner();
});
</script>






<%
'/style/info/host.asp?typeid=分类号
Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")

agentname=session("agentname")
if session("agentusername")<>"" Or session("AgnRunasUser")=True then 
if session("agentusername")<>"" Then agentname=session("agentusername")
	Set dsagent = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_Agent where username='"&agentname&"'"
		dsagent.Open Sql,conn,1,1
if Not dsagent.eof then
Set dsagnettype = Server.CreateObject("ADODB.Recordset")	
Sql="Select * from FreeHost.FreeHost_Agent_pers where agenttype='"&dsagent("agenttype")&"'" 
		dsagnettype.Open Sql,conn,1,1
if Not dsagnettype.eof Then
canshowagnpric=True
Else
canshowagnpric=false
End if
end If
dsagent.close
end If



	Set dsHostlist = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_CDNProductlist where canbyenduser='y' and (onlyusebyagn is null or onlyusebyagn='"&agentname&"') order by orderbyid desc"
if agentname<>"n" then Sql="Select * from FreeHost.FreeHost_CDNProductlist where canbyagnenduser='y' and (onlyusebyagn is null or onlyusebyagn='"&agentname&"') order by orderbyid desc"
if Request.QueryString ("typeid")<>"" and  IsNumeric(Request.QueryString("typeid")) then Sql="Select * from FreeHost.FreeHost_CDNProductlist where canbyenduser='y' and typeid='"&Request.QueryString("typeid")&"'   and (onlyusebyagn is null or onlyusebyagn='"&agentname&"') order by orderbyid desc"

if Request.QueryString ("typeid")<>"" and  IsNumeric(Request.QueryString("typeid")) and agentname<>"n" then Sql="Select * from FreeHost.FreeHost_CDNProductlist where canbyagnenduser='y' and typeid='"&Request.QueryString("typeid")&"'  and (onlyusebyagn is null or onlyusebyagn='"&agentname&"') order by orderbyid desc"
if Request.QueryString ("pagesize")<>"" and  IsNumeric(Request.QueryString("pagesize")) then
dsHostlist.PageSize = Request.QueryString ("pagesize")'每页显示的数量
else
dsHostlist.PageSize = 10'每页显示的数量
end if
		dsHostlist.Open Sql,conn,1,1
If dsHostlist.Eof Then%>
产品列表为空.
<%else

Set dsHostlistcount = Server.CreateObject("ADODB.Recordset")	
		Sql=replace(replace(sql,"Select *","Select count(*)"),"order by orderbyid desc","")
		dsHostlistcount.Open Sql,conn,1,1
hostcount=dsHostlistcount(0)
dsHostlistcount.close
set dsHostlistcount=nothing

if Request.ServerVariables("QUERY_STRING")<>"" then
ask=Split(Request.ServerVariables("QUERY_STRING"), chr(38)&"pn")
else
ask=Split("freehost=1", "")
ask(0)="freehost=lsoft"
end if
	pn=1
if Request.QueryString ("pn")<>"" then pn=Request.QueryString ("pn")
If dsHostlist.RecordCount <> 0 Then dsHostlist.AbsolutePage = CLng(pn)  
    if clng(pn)<=10 then
    begini=1
      if dsHostlist.PageCount<=10 then
       endini=dsHostlist.PageCount 
       else
       endini=10
      end if
    end if
%>





<div class="wrapper_product">
<div class="product">
<ul>

<%
For N=1 To dsHostlist.PageSize 
					If dsHostlist.RecordCount=0 Then Exit For

usermoney=dsHostlist("usermoney")
if agentname<>"n" then 
	Set dsendmoney = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_Agent_user_price where prtype='CDN产品' and username='"&agentname&"' and id="&dsHostlist("id")&""
		dsendmoney.Open Sql,conn,1,1
if not dsendmoney.eof then
usermoney=dsendmoney("usermoney")
end if
dsendmoney.close
end if

%>

      <%
	info=dsHostlist("info")
	CDNtype=dsHostlist("CDNtype")
isAgnHostSer=false
	Set newname_host = Server.CreateObject("ADODB.Recordset")	
Sql="Select * from FreeHost.FreeHost_CDNProductlist_AGN where agent1='"&agentname&"' and id='"&dsHostlist("id")&"'"
		newname_host.Open Sql,conn,1,1
if not newname_host.eof then
info=newname_host("info")
CDNtype=newname_host("CDNtype")
'if newname_host ("ServerlistID")<>0 Then isAgnHostSer=True '这是独立模板的产品
newname_host.close
end if

%>


	<li class="products_list">
		<div class="title">
			<img src="/cloudtpl/images/vhostico_base.png">
			<span><%=CDNtype%></span>
			
		</div>	

		<div class="info">
<%=info%>
		
		</div>
		<div class="price">
<span><%=Clng(FormatNumber(usermoney*dsHostlist("PAY_Month"),0,-1,0,0))%></span>元/月<span><%=usermoney%></span>元/年<%if canshowagnpric then%><%
If isAgnHostSer then%>
(<font color=red>当前此产品为独立模式产品，成本价为0元</font>)
<%End if
End if%></div> 


		<a href="/user/selfCDN.asp?id=<%=dsHostlist("id")%>" class="buy" target="_blank">立即购买</a>
		 
				 	
				 	 
				 	
			
		
		               
				 	
				 	
				 	
				 	
					
	

          
<%
If clng(pn)=dsHostlist.PageCount Then
I = dsHostlist.RecordCount - (dsHostlist.PageCount-1) * dsHostlist.PageSize
If N=I Then Exit For
End If
dsHostlist.movenext
Next%>
<%dsHostlist.close
set dsHostlist=nothing
end if%>

</ul>
</div>
</div>

  <!--#include virtual="/cloudtpl/inc/footer.asp"-->

  </body></html>


